00010	********* MSS ***************   3/4/76
00055	
00100	***PROGRAMS TO EDIT MUSIC ON DISPLAY AND PRINT IT ON XGP OR CALCOMP ***
00200	
00250	THIS SERIES OF PROGRAMS IS THE PROPERTY OF LELAND SMITH, PROFESSOR OF MUSIC
00275	AT STANFORD UNIVERSITY.  IT MAY NOT BE USED OR COPIED WITHOUT HIS PERMISSION.
00280	
00300	TO RUN: TYPE 'R MS'      (SEE LAST PAGE FOR 'RPG' FILES.)
00400			(FOR THE PROGRAM TO RUN IT MUST PICK UP SOME SPECIAL
00500			DATA IN [DAT,LCS].)
00600	
00700	 <<<<<< SOME GENERAL ADVICE:  'SAVE' THE WORK OFTEN.(SEE PG.6)
00800	
00900		PUT IN ALL NOTES, CLEFS, BEAMS, ETC.(ALL THE THINGS PUT IN
01000		WITH 'SCORE' INPUT) FIRST.  THEN DO ALL 'JUSTIFYING'(PG.8)
01100		OF LINES, IF NEEDED, BEFORE ADDING OTHER WORDS, NUMBERS,
01200		ETC. (THE PROGRAM WILL RUN FASTER AND YOU WILL HAVE THE
01300		FINAL POSITIONS OF THE NOTES DISPLAYED.)
01400	
01500		SEE SECTION ON 'SCORE' INPUT (PG.9)  FOR FIRST STEPS IN INPUT.
01600	
01700	HORIZANTAL SPACING IS ON A SCALE OF 0 TO 200.(SEE END OF PG.5)
01800	
01900	VERTICAL SPACING IS BY NOTE LEVEL NUMBERS.  THE POSITION OF MIDDLE  C
02000	IN  THE  TREBLE  CLEF IS TAKEN AS 1. D=2, G=5, C ABOVE=8, G ABOVE=12,
02100	ETC.  THE B BELOW MIDDLE  C  =0,  A=-1,  G=-2,  ETC.   THUS  VERTICAL
02200	POSITIONS  UP  FROM  MIDDLE C MAY BE THOUGHT OF AS THE NUMBERS OF THE
02300	DIATONIC INTERVALS FROM C. (HOWEVER THIS DOES NOT FOLLOW  WHEN  GOING
02400	DOWN FROM MIDDLE C.)
02500	
02600	
02700	THE CODE NUMBERS:			ROUGH INDEX:  THE 'PAGE' NUMS.
02800	
02900	1 - NOTES				CODE NUMS.	2,3,4,5
03000	2 - RESTS				LETTERS, WORDS(T) 6
03100	3 - CLEFS, DYNAMICS			VARIOUS COMMANDS  7
03200	4 - LINES, BOXES, DASHES		XGP INFO.	  7
03250						Z,P,G,S,AD, ETC.  7
03300	5 - SLURS, BRACKETS			EDIT MODES	  8
03400	6 - BEAMS				MOVE, COPY, ETC.  8
03500	7 - TRILL, PEDALS, OTTAVA		DP, JUSTIFY, ETC. 8
03600	8 - STAFF				IN, READ (INPUT)  9
03700	9 - MISC.				AUTO. SPACING	 10
03800	10 - NUMBERS
03900	11 - LIBRARY				SUBROUTINE LIST  11
04000	12 - CIRCLES				RPG LIST	 12
04200	16 - LETTERS
04300	17 - KEY SIG.
04400	18 - METER
04900	101 - SPACING SCALE
05200	
05300	
05310	
05320	
05330	
05340	
05350	
05360	
05370	
05380	
05390	
05395	
05400	*** SUMMARY OF LETTER COMMANDS ***
05500	
05600	G name=GET name			RS name=RESTART AND GET name
05700	SA name=SAVE name		SB name=SAVE WITH DPY, name
05800	SM =SAVE WITH SAME NAME DPY	GM nsme=GET FILE name AND ADD TO DPY.
05900	
06000	IN n,n,n... 	= INPUT ON STAFF n, etc.
06100	READ name n 	= READ SOS FILE name AND PUT IT ON STAFF n.
06150	T n,n...	= TYPE IN WORDS, LETTERS, n = STAFF n, ETC.
06200	Z n,n,n 	= ZOOM LENS TO SIZE n, ETC.
06300	P n,n... 	=PRINT CURRENT VAL. OF PARAM n, OR LIST OF ITEMS n→n.
06400	SP n 		= SET SPACING STAFF NUMBER TO n.
06500	AD n,n 		= ADJUST STEMS TO MEET BEAMS ON STAFF n, ETC.
06510	SH		= SHOW SHAPES OF TYPE FONTS BEING DISPLAYED.
06520	SHX		= (EXIT) GO BACK TO 'PRIMATIVE' UPPER CASE ONLY.
06530	SHP		= SHOW ALL IN 'PRIM' FONT (UPPER AND LOWER CASE).
06540	
06600	M = MOVE A GROUP OF ITEMS
06700	C = COPY A GROUP OF ITEMS
06800	A = ALTER THE PARAMETERS OF A GROUP OF ITEMS
06900	ST n,n = EDIT ON STAFF n CODE NUMBER n.
07000	ED n,n,n = EDIT AT HORIZ. POS. n, ON STAFF n, CODE NUM. n.
07100	L,R,U,D n = LEFT, RIGHT, UP, DOWN n NOTCHES.
07200	I n = EDIT ITEM NUMBER n.
07300	S = SET; THEN A = ALIGN.
07400	LP = LIGHT PEN
07500	DP n,n,... = MAKE DISAPPEAR STAVES n,n...
07600	J = JUSTIFY A LINE.
     

00100	******* KEY TO THE PARAMETER NUMBERS *******
00200	
00300	P1=CODE NUMBER, P2=STAFF NUMBER,
00400	   P3=HORIZANTAL POSITION, P4=VERTICAL POSITION BY NOTE NUMBER,
00500	       P5=OFTEN 2ND VERTICAL POS., P6=OFTEN 2ND HORIZANTAL POS.
00600	
00700		THE FOLLOWING CODE NUMBERS ARE USED MAINLY FOR EDITING.
00800	--------  SECTION I  ---------
00900	
01000	1 NOTES: 1, STAFF, POS, NOTE NUM(VERT. POS.),  
01100		(P5) STEM DIR & ACCI,
01200		(P6) FILLED IN? (≥0), DECIS REFER TO ACCENTS, ETC.
01300		(P7)NUM OF TAILS(1=8TH,4=64TH, ETC.)
01400			(IF 2 DIGITS, LFT IS NUM OF DOTS.)
01500		(P8)STEM EXT. BY NT NUM.  (999 IS SAME AS 0 HERE.)
01600		(P9)=-1 TO SUPPRESS LEDGER LINES.
01700	        	 (P9 ALSO STORES RHYTHMIC VALUE FOR SPACING.)
01800		(P10)=1 PUTS SLASH ON GRACE-NOTE TAIL (1000 IN P8=SAME)
01900	        (P11)=CHANGE SOURCE POS. OF STEM. (USE WITH P4=400+)
02000	
02100	    P4 100S GIVE MINIS, 200S GIVE DIAMOND SHAPE (HARMONICS)
02200		300S GIVE 'X' NOTES (FOR PERCUSSION, ETC.), 400S=NO NOTE HEAD.
02250		500S GET EARLY MUSIC PACKAGE (SEE EARLY.F4 FOR INFO).
02275		+1000 PUTS NOTE ON STAFF ABOVE CURRENT ONE, +2000 ON STF BELOW.
02300	
02400	    FOR P5: <10= NO STEM, 10-15=STEM UP, 20-25= STEM DOWN
02500		1,11 OR 21=FLAT; 2,12,22=#; 3,13,23=NATURAL; 4=DBL b; 5=DBL #
02600	
02700	    FOR P6: POS NUM OR 0 = BLACK NOTE, ANY NEG NUM = WHITE NOTE.
02800	    FOR P6: 10,-10 'HOMES' TO RIGHT OF UPWARD STEM.
02900		     20,-20 'HOMES' TO LEFT OF DOWNWARD STEM.
03000	 	30,-30(FOR 0,-1) PUTS DOTS IN PROPER PLACE IN COMPLEX CHORDS.
03100	
03200	      IF P7 HAS 2 DIGITS THE NOTE IS DOTTED; 2ND DIG. IS NUM OF TAILS.
03300			IF 2ND DIGIT IS 1 AND P6 IS NEG. A WHOLE NOTE PRINTS.
03310				IF 2ND DIGIT IS 2 A DOUBLE WHOLE NOTE PRINTS.
03400		DECIMALS AFTER P5 OR P7 SPACE OUT ACCIDENTAL OR DOT.
03600		DECIMALS AFTER P6 ARE ACCENT NUMS (.4-.7,.9 ETC. SEE CODE #9)
03700				UP TO 2 ACCENTS CAN BE PUT IN THIS WAY.
03710	
03800	
03900	
04000	2 RESTS: 2,STF,POS,HGT,REST(-2=WHOLE, -3=DOUBLE WHOLE, 0=1/4, 1=1/8,ETC), 
04100	
04110		P6) 1=DOTTED,  P7) HOLDS RHYTHMIC VALUE. (1=QTR, .5=EIGHTH, ETC.)
04200			P8=NUMBER OF MEASURES REST(TO 999).  THE REST WILL ALWAYS
04300			   TURN INTO A WHOLE REST.  A HORIZANTAL LINE WILL DISPLAY
04400			   BELOW THE REST TO FACILITATE CENTERING BETWEEN 2 BAR 
04500			   LINES.  TO CHANGE THE WIDTH OF THIS CENTERING LINE 
04600			   ALTER P6.
04700			     (IF P6=0 THE LINE WILL EXTEND ABOUT 10 UNITS IN EACH
04800			     DIRECTION.  A NON-ZERO ENTRY WILL CHANGE THIS.)
04900			P8=-1 GIVES WHOLE REST WITHOUT NUMBER ABOVE.
05000	
05100			   P8=-2 WILL CENTER WHOLE REST BETWEEN 2 BAR LINES IF
05200			   THEY ARE IN THE EXACT ORDER BAR-REST-BAR.   IF THIS IS
05300			   NOT THE CASE THE REST MUST BE CENTERED VISUALLY. USE P6.
05400	
05410	
05420	
05430	
05440	
05450	
05470	
05500	3 CLEFS, DYNAMICS AND OTHER THINGS:
05600		  3, STAFF, POS, P4=HGT CHANGE(TO MAKE SOP. ETC.),P5=CLEF NUM
05610		  P6-P9 (SAME AS IN CODE 9)
05690	
05700		(CLEF NUMS ARE: TREB=0, BASS=1, ALTO=2, TENOR=3,
05800	         4=PF.STF BRKT.(SEE CODE 4 ALSO.)   5=ARROW
05900	     10=b, 11=#, 12=NAT., 13=bb, 14=x,15=half note,16=whole note.
06000		 ADD 100 TO P5 FOR MINICLEFS.)  (P6-P9 AS IN CODE 11.)
06100	
06200	  OTHER THINGS: P5=40 = PPP   41 = PP   42 = P   43 = MP 
06300			   50 = MF    51 = F    52 = FF   53 = FFF 
06400			   70 = CRESC.  71 = SUBITO  72 = POCO
06500			   80 = ACCEL.  81 = MENO    82 = DIM.
06600			   30 = ED      31=MORDANT   37=RIT.
06610			   33 = CURVY BRACKET 	44 = HEAVY WEDGE 
06620			   61 = SEGNO   62 = TURN
06700		 ---- MORE WILL BE ADDED! ---(FILES CLEF0,1,2,4,5,7,8 ARE FULL)
06800	
06805	
06810		***** EARLY MUSIC ITEMS (SEE APPENDIX RE. 'EXTRA')******
06815	
06820	  C CLEF=26, F CLEF=27, END-OF-LINE WIGGLE=28
06830	
06900		20-25, 29 = EARLY MUSIC NOTATION (USE THESE IN P6 OF 'NOTES')
07000			20=MAXIMA, 21=LONGA, 22=BREVIS	23=SEMIBREVIS
07010		   24=MINIM, 25=SEMIMINIM, 29=INVERTED LONGA (FOR LIGATURES)
     

00010	
00020	
00030	
00040	
00050	
00060	
00070	
00080	 **** SEE TABLE ON NEXT PAGE FOR VARIOUS USES OF CODE #4. ****
00090	
00095	
00100	4 LINES: 4, STF, POS, P4, P5, P6, P7, P8, P9, P10
00200		(P4) NUM OF STAVES UP FOR BAR LINE - IF ALL HIGHER 
00300			PARAMETERS = 0, OR HGT1 (i.e.VERT. POS1 IF LINE).
00400		   FOR HEAVY BAR LINES ADD 100*THICKNESS TO NUMBER IN P4
00500		   ADD 1000 MORE FOR THIN DOUBLE BAR.
00505		2ND DIGIT FROM LEFT WILL MAKE RIGHT HAND BAR THICKER.
00510			E.G. 1502 MAKES A DOUBLE BAR, UP 2 STAVES, WITH THE RIGHT
00515			ONE 5 LINES THICK.  2502 DOES THE SAME EXCEPT THAT THE
00520			LEFT HAND BAR WILL BE THE THICK ONE.
00525	
00530		TO MAKE REPEAT BARS (WITH DOTS), SET NUMBER OF STAVES TO BE 
00535		COVERED IN P4.  THEN P5=1 WILL PUT DOTS TO RIGHT; P5=2 PUTS
00540		DOTS TO LEFT; P5=3 PUTS DOTS ON BOTH SIDES AND ADDS THIN BAR.
00545	
00600		(BAR LINES DON'T AFFECT TOP AND BOT. MAXI'S.-FOR AUTO. SPACE)
00700	
00800		(P5) HGT2,   IF P5=50, A +N IN P7=CRESC., -=DECRESC., ETC.
00900		(P6) POS2, 	(IGNORED IF BOX IS PRINTED.)
01000		(P7) 1=VERT. DASHES. IF P5=50 +N IN P7=CRESC., -=DECRESC.
01100		     2=HORIZ. DASHES.  -1 GIVES VERTICAL WAVEY LINE. 
01200		     3 OR 4=LGE. BRKT. (SEE DIAGRAM FOLLOWING)
01205		     5 MAKES CURVEY BRACKET (AS USED FOR PIANO MUSIC, ETC.)
01300		    
01400		     P9=WIG.UNIT HGT.,  P8 CHANGES WIGGLE WIDTH, THIS AND NEXT
01500		     -2 GIVES HORIZ.WAVEY LINE(P5 GIVES HGT OF WAVE BY NT NUM)
01600				....P6=RIGHT END POINT OF WIGGLE.
01700			P10=ADDED WIDTH FOR WIGGLES AND DASHES.(1=1 MORE, ETC.)
01800	
01900		(P8) NON-ZERO GIVES HORIZ. BOX SIZE(BY NT NUMS) IF P5=50
02000			IF VERT. DASHES, P8 SETS SIZE.(ALSO AFFECTS WIGGLES.)
02100			P8 ALSO CAN AFFECT HEAVY BRACKET. SEE DIAGRAM FOLLOWING.
02200	
02300		(P9) GIVES VERT. BOX SIZE, IF P5=50.(AFFECTS VERT. WIGGLES ALSO.)
02400		(P10)=THICKNESS IF STRAIGHT VERTICAL LINE OR BOX(NOT BAR LINE.)
02500		(P11)=DISPLACEMENT FOR RIGHT SIDE OF BOX (PARALLELAGRAM).
     

00100		RESUME OF CODE 4 PARAMETERS
00200	
00300	----------------------|-------|-------|-------|-------|-------|-------
00400			  P4  |  P5   |  P6   |  P7   |  P8   |  P9   |  P10
00500	----------------------|-------|-------|-------|-------|-------|-------
00600	LINES	 	HGT.1 | HGT.2 | POS.2 |   0   |   0   |   0   |
00700	----------------------|-------|-------|-------|-------|-------|-------
00800	HEAVY VERT.LINE  BOT. |  TOP  |  =P3  |   0   |   0   |   0   | THICKN.
00900	----------------------|-------|-------|-------|-------|-------|-------
01000	BAR LINE    N=NUM. OF |   0   |   0   |       |       |       |
01100	            STAVES UP |       |       |       |       |       |
01200	   (+1000 FOR DBL BAR)|	      |       |       |       |       |
01300	----------------------|-------|-------|-------|-------|-------|-------
01400	HEAVY BAR     N+100*  |   0   |   0   |       |       |       |
01500	            THICKNESS |       |       |       |       |       |
01600	   (+1000 FOR DBL BAR)|	      |       |       |       |       |
01605	                      |       |       |       |       |       |
01610	REPT. BARS  NUM OF    |   1   |   0   |       |       |       |       
01620	           STAVES UP  |       |       |       |       |       |       
01625	 +1000=DOTS TO LEFT   |       |       |       |       |       |       
01630	 +2000=DOTS TO RIGHT  |       |       |       |       |       |       
01640	 +3000=DOTS RT & LFT  |       |       |       |       |       |       
01700	----------------------|-------|-------|-------|-------|-------|-------
01800	HEAVY BRACKET    BOT. |  TOP  |   0   |   3   |   0   |   0   | THICKN.
01900	                 HGT. |  HGT. |       |       |       |       |       
02000	       --OR--         |       |       |       |       |       |       
02100	            N=NUM. OF |   0   |   0   |   4   |   0   |       | THICKN.
02200	            STAVES UP |       |       |       | 1=BOT |       | (0=4)
02300	                      |       |       |       | 2=TOP |       |       
02310	CURVY BRACKET 	   N  |   0   | WIDTH |   5   |       |       |
02400	----------------------|-------|-------|-------|-------|-------|-------
02500	CRESC.	 	 HGT. |  50   | POS.2 | 0  OR |   0   |       |
02600			      |       |       |SPREAD |       |       |
02700			      |       |       |  =N   |       |       |
02800	----------------------|-------|-------|-------|-------|-------|-------
02900	DECRESC. 	 HGT. |  50   | POS.2 | -1 OR |   0   |       |
03000			      |       |       |SPREAD |       |       |
03100			      |       |       |  =-N  |       |       |
03200	----------------------|-------|-------|-------|-------|-------|-------
03300	DASHES - HORIZ.  HGT1.| HGT2. | POS.2 |   1   | DASH  | SPC SZ| THICKN.
03400	(P11=1 FOR BRKT END)  |       |       |       | SIZE  | (0=P8)|
03500	----------------------|-------|-------|-------|-------|-------|-------
03600	DASHES - VERT.   BOT. |  TOP  |   0   |   1   | DASH  |       | THICKN.
03700	  (NO SLOPE)     HGT. |  HGT. |       |       | SIZE  |       |
03800	----------------------|-------|-------|-------|-------|-------|-------
03900	WIGGLE - HORIZ.  HGT. |       | POS.2 |  -2   | WIGL. | WIGL. | THICKN.
04000	  (NO SLOPE)          |       |       |       | WIDTH |  HGT. |
04100	----------------------|-------|-------|-------|-------|-------|-------
04200	WIGGLE - VERT.   BOT. |  TOP  |   0   |  -1   | WIGL. | WIGL. | THICKN.
04300	  (NO SLOPE)     HGT. |  HGT. |       |       | WIDTH |  HGT. |
04400	----------------------|-------|-------|-------|-------|-------|-------
04500	BOXES		 HGT. |  50   |   0   |   0   | WIDTH |  HGT. | THICKN.
04600	(P11=CHNG OF RT. HGT.)|       |       |       |       |0=SQUAR|
04700	----------------------|-------|-------|-------|-------|-------|-------
04800	
04900	
04910	
04920	
04930	
04940	
04950	
04960	
05000	
05100	
05200	5 SLURS: 5, STAFF, POS1, NT1, NT2, POS2, P7=DIP(NT UNITS + OR -), P8, P9
05300		FOR P8 0=SLUR, 1=BRACKET, 2=LFT 1/2 BRKT, 3=RT 1/2 BRKT,
05400	
05500		FOR AUTOMATIC ALIGNMENT OF SLUR WITH NOTES, SET P13=1, THEN
05600		IF P8=-1, END POINTS WILL HOME TO NOTE CENTERS.
05700		IF P8=-2, END POINTS WILL HOME BETWEEN NOTES.
05800	
05900		USE P8=-3 TO HOME BETWEEN NOTES WHERE 1ST IS DOTTED.
06000	
06100		P9=CURVE FACTOR.  DEFAULT VALUE (0)=3  GIVES SLIGHTLY "FLATTENED"
06200		  SLURS. TO MAKE THEM MORE ROUND, DECREASE P9 TOWARD 2. 
06300		  TO RESTRICT THE CURVE TO THE END PORTIONS, INCREASE P9.
06400	
06500	     IF P8=1 AND P9 IS NOT 0, A BRACKET WITH A NUMBER(P9) WILL BE DRAWN.
06600	
06700		HALF SLURS:  ADD 100 TO P7 FOR HALF SLUR WITH THE CURVE ON THE RIGHT.
06800		             ADD 200 TO P7 TO GET CURVE ON THE LEFT.
06900	
07000		SLUR WITH CHANGE OF DIRECTION:  ADD 300 TO P7 TO MAKE SLUR CHANGE
07100			DIRECTION.  IF P7 IS POS. THEN 1ST 'DIP' IS POS.; IF P7 IS
07200			NEG. THEN 1ST 'DIP' IS NEG.
07250	
07300	   USE P10 TO SHIFT HIGH POINT OR 'CENTER' OF CURVE FROM MIDDLE. 
07350		P10=0 IS THE SAME AS P10=.5.  VALUES GREATER THAN .5 MOVE THE CENTER 
07450		TO THE RIGHT, LESS THAN .5 MOVE IT TO THE LEFT.  
07550		(VALUES GREATER THAN .75 OR LESS THAN .25 DO NOT MAKE GOOD CURVES 
07650		AS YET.)
     

00100	
00200	
00300	6 BEAMS: 6, STF, POS1, NT1, NT2, POS2, 
00400			FOR "MINI" BEAMS ADD 100 TO P4 (-100 FOR NEG. NUMS.)
00500	
00600		 (P7)  STEM DIR(10=↑ 20=↓), 
00700	 	  --  2ND DIG. IN P7=TOTAL NUM OF BEAMS.
00800		     IF P7 IS NEGATIVE THEN TREMOLO SLASHES ARE MADE.
00900			  IF TREMOLO, P8 SETS WIDTH. (0=2.2), P9=POS.
01000	
01100		 (P8)  10=LFT,  20=RT. (OR TREM. WIDTH)
01200		       -10,-20=UNATTACHED PARTIAL BEAMS
01300			 A 2ND DIGIT=DISPLACEMENT NUMBER.
01400			-- IF P10 HAS 30+, P8 WILL HAVE POS3 AND
01500			-- P9 WILL HAVE POS4.
01600	
01700		 (P9)  POS3. (OR POS4 IF P10>30.)
01800			   OR POSITION OF TREMOLO
01900		IF P8=0 AND P10=0 AND P9=N, N WILL BE A NUMBER OVER THE BEAM.
02000	
02100		 (P10) = NUM OF BEAMS DISPLACED (NO MORE THAN 9.)
02200		  ADD 10 FOR INNER SHORT PARTIAL →
02300		  ADD 20 FOR INNER SHORT PARTIAL ←
02400		  ADD 30 FOR INNER PARTIAL BETWEEN TWO STEMS.
02500	
02600		      P11 CAN RESET HOMING RANGE (OR -1 = NONE.)
02700	
02800	--------------------------------------------------------|-------|-------
02900							   P8	|  P9	| P10
03000	--------------------------------------------------------|-------|-------
03100	UNATTACHED PARTIAL BEAM POINTING →		  -10	|   0	|  0
03200					 ←		  -20	|   0	|  0	
03300	  DISPLACEMENT IS IN 2ND DIGIT OF P8		   	|    	|    
03400	--------------------------------------------------------|-------|-------
03500	ATTACHED PARTIAL BEAM POINTING →	           10   | POS.3 |  0   
03600				       ←	           20   | POS.3 |  0   
03700	  DISPLACEMENT IS IN 2ND DIGIT OF P8		   	|    	|    
03800	--------------------------------------------------------|-------|-------
03900	INNER PARTIAL BEAM POINTING →			    0   | POS.3 | 10
04000				    ←			    0   | POS.3 | 20
04100	  DISPLACEMENT IS IN 2ND DIGIT OF P10			|	|
04200	--------------------------------------------------------|-------|-------
04300	INNER BEAM             				  POS.3 | POS.4 | 30
04400	  DISPLACEMENT IS IN 2ND DIGIT OF P10			|	|
04500	--------------------------------------------------------|-------|-------
04600	TREMOLO	 		   *****P7=-10 OR -20     WIDTH |TRM,POS| DISP. 
04700	   -PARALLEL TO OTHER BEAMS -TILT IN P3-6    		|	|
04800	    NUMBER OF BEAMS IS SECOND DIGIT OF P7		|	|
04900								|	|
05000	       			   *****P7=-10 OR -20     WIDTH |   0   | DISP. 
05100	 -WITHOUT OTHER BEAMS - STANDARD TILT			|	|
05200	    NUMBER OF BEAMS IS SECOND DIGIT OF P7		|	|
05300	--------------------------------------------------------|-------|-------
05400	NUMBER OVER OR UNDER BEAM			    0	| NUM.	|  0
05500	--------------------------------------------------------|-------|-------
05600	
05700	
05800	
05810	
05820	
05830	
05840	
05900	7 TRILLS,PEDALS,OTTAVA: 7, STF, POS1, VERT.POS, P5=SZ(0=1), P6=POS2, 
05950			P7 (1=NO WIGGLE) IF P7=1, NO WAVEY LINE APPEARS.
06005	
06010		IF P7 IS GREATER THAN 1, PIANO PEDAL SYMBOLS WILL PRINT.
06020			THEN: P5=PEDALS DEPRESSED (USE 3 DIGITS)
06030			000=NONE		001=RIGHT PED. ONLY
06040			010=CENTER PED. ONLY	100=LEFT PED. ONLY
06050			101=OUTER PEDS. 	011=CENTER AND LEFT
06060			110=RIGHT AND CENTER	111=ALL (NOT USUAL)
06070	
06080		P7=2 PLAIN SYMBOL;   =3 ADDS TOP BRACK. EXTENDED TO P6 (POS2).
06090		  =4 ADD LINE TO TOP OF SYMBOL. EXTENDED TO P6 POS.
06095	  	  P8 SETS SIZE OF LINE EXTENSION TO LEFT OF SYMBOL (P7=3 OR 4)
06100	
06110	
06120	  **** OTTAVA *****   P7=8 FOR STANDARD OTTAVA, =-8 FOR OTTAVA BASSA,
06130			       P7=15 FOR 15MA.  SET P8≠0 TO SUPPRESS BRACKET
06140			       ENDING OF DASHED LINE.
06150	
06200	
06300	
06400	8 FOR STAFF LINES: 8,  HGT(STAFF NUM. 3 TO -3), (P3)POS1, 
06500		P4) VERT. SHIFT,  5) SIZE FACTOR (0=1),  P6) POS2.(0=200)
06600		P7) IF SET TO NON-ZERO THE STAFF WILL BE INVISIBLE.
06700		   (USE THIS AS A MEANS TO SET SIZE AND POSITION OF
06800		    NOT APPEARING ON A STAFF.)
06900		P8) USED TO SET MOVE-UP DISTANCE(INCHES) TO NEXT FILE'S
07000		    STAFF 0. (USE P8 ONLY! WITH STAFF 0.)
07100		    HORIZANTAL LINE WILL DISPLAY AT POSITION OF NEXT STAFF 0.
07200	        P9=1 WILL ASK FOR ID NAME FOR THIS STAFF(TO BE USED IN 'PARTS')
07300	
07400	
07500	9 ACCIDS, ACCENTS, ETC.: 9, STF, POS, NOTE NUM, P5, P6=SIZE (0=1)
07600		FOR P5: b=1, #=2, NAT=3, WEDGE ACCENT ∧=4(-4=INV), ACCENT >=5,
07700		FERMATA=6 or 26(-6=INV), STAC. OR DOT=7, REPEAT BAR SIGN=8,
07800			TENUTO OR DASH=9, DNBOW=11, UPBOW=12, HARM,=13, +=14,
07900			THESIS=15, ARSIS=16, MORDANT=17, INV.MORD.=18, TRILL=20
07910			HEAVY WEDGE=21
08000	
08100	   ***** 2 ITEMS MAY BE ENTERED AT ONCE WITH P5. e.g. 47 WILL CREATE
08200		A WEDGE(4) WITH A DOT(7) BELOW IT; 79 MAKES A DOT(7) WITH A
08300		DASH(9) BELOW IT. IF ANY OF THE 2-DIGIT CODES ARE USED, THEY
08400		MUST! COME FIRST.   e.g. 135  MAKES  A  HARMONIC(13) WITH AN
08500		ACCENT(5) BELOW.  ETC.	(513 WILL NOT WORK!)
08600	
08700	
08800	10 NUMBERS: 10, STF, POS, NT NUM, NUM(TO 3 DIGITS ONLY), SIZE FACT., P7
08900		P7=2 GIVES THIN LINE NUMS., =0 = BDR40 TYPE FONT WHEN IT PLOTS.
09000					    =1 = BDI40 (ITALICS)
09100		P8=1 CIRCLES NUMBER, =2 BOXES NUMBER.  P10>1 THICKENS BOX ETC.
09200	
09300		 SET P13 TO 1 FOR AUTOMATIC HOMING.
09400		 (SEE HOMING INFO IN EDIT SECTION.)
09500	
09600	
09700	11 LIBRARY ITEMS: 11, STAFF, POS,  VERT. NOTE NUM, P5)ITEM NUM, 
09800		   P6)HORZ. SZ., P7)VERT. SZ.,   P8,  P9,  P10
09900			P8=-1 FOR FILL ON CRT, =-2 FOR NO FILL ANYWHERE.
10000	
10100		P5 MAY HAVE NUMBERS 0 THROUGH 99.  NUMBERS 0-9 REFER TO
10200		THE "BASIC" DRAW FILE.  (SEE 'DRAW.MAN' FOR PREPERATION
10300		OF 'DRAW' FILES.)  THE "BASIC" FILE SHOULD HAVE A NAME
10400		WITH 4 LETTERS AND THE NUMBER 0 ON THE END.  IF THE "BASIC"
10500		NAME IS 'CHAR0' THEN NUMBERS 10 THROUGH 19 WOULD REFER
10600		TO 'CHAR1'; 20-29 TO 'CHAR2', 30-39 TO 'CHAR3', ETC.
10700	
10800		P9 = CLOCKWISE ROTATION BY DEGREES.
10900		
11000		IF P10 IS SET TO 1 A "BASIC" FILE NAME WILL BE REQUESTED.
11100		THE NAME WILL BE STORED IN P10. ANY TIME P10 IS SET TO 1
11200		THE NAME WILL BE RE-REQUESTED.  ANY TIME P10 IS IGNORED THE
11300		LAST NAME GIVEN WILL BE PUT INTO P10.
11400		THUS SEVERAL ITEMS CAN USE DIFFERENT "BASIC" NAMES.
11500	
11600	
11700	12 CIRCLES AND ARCS: 12, STF, POS,  VERT. NT NUM, 	
11800			P5=RADIUS(BY HORIZ. SCALE NUMS)
11900			P6=DEGR.1, P7=DEGR.2; ZEROS GIVE COMPLETE CIRCLE.
12000			P8=THICKNESS(0=1 LINE, 1=2 LINES, ETC.)
12100	
12200	
12600	16 LETTERS, WORDS, ETC.:
12700	   16, STAFF, POS, VERT. NOTE NUM, P5)=SIZE FACTOR, P6
12800		----- THEN TYPE TEXT ----- 
12900	     ---- SEE SECTION II FOR DETAILS -----
13000	
13100	
13200	17 KEY SIG.: 17,STF,POS,VERT, P5)NUM OF #S OR FLATS(+=#, -=b)
13300			P6=CLEF NUM (0=TREB, =1=BASS, =2=ALTO, =3=TENOR)
13400				FOR MINI CLEFS ADD 100 TO P6.
13500	
13600	
13700	18 METER:  18, STF, POS, VERT, P5)TOP NUM, P6)BOTT NUM, P7)SIZE FACTOR
13800			IF P5=99 THE LETTER C WILL PRINT
13900	
14000	
16000	
17000	
     

00100	---------  SECTION II  --------------
00200	
00300	TYPE 'T' n, n .....  TO ENTER LETTERS, WORDS, ETC.
00400	   T, STAFF, POS, P4=VERT. NOTE NUM, P5=SIZE FACTOR, P6
00500		----- THEN TYPE TEXT ----- 
00600	
00700	0-9, A-Z, a-z, and = . - , * ( ) " ; : + ? ! QTR NT  HLF NT CAN BE USED.
00800	
00900	UP TO 12 CHARACTERS WILL BE PACKED IN AN ITEM.
01000	STRINGS OF MORE THAN 12 CHARACTERS WILL BECOME SEVERAL ITEMS FOR
01100	EDITING PURPOSES.  
01200	TO PLACE ITEMS IN RELATION TO ALREADY PRESENT NOTES, SET P6≠0.  
01300	SEPARATE EACH ITEM BY SLASHES.
01400	THE SLASHES WILL NOT BE DRAWN.(BUT A LINE ENDED WITH ; WILL PRINT ;.)
01500	
01600	WHEN  P6≠0,  NUMBERS WILL APPEAR OVER THE NOTES OF THAT STAFF AND YOU
01700	WILL BE ASKED TO TYPE POSITION NUMBERS FOR EACH ITEM.    IF  P4  (THE
01800	VERTICAL  POSITION)  IS  SET  TO 0 YOU SHOULD TYPE 2 NUMBERS FOR EACH
01900	ITEM.  SEPARATE THE PAIRS OF NUMBERS BY SLASHES.  THE FIRST NUMBER OF
02000	A  PAIR  WILL  BE HORIZANTAL POS., THE SECOND WILL BE VERT. POS.  THE
02100	HORIZANTAL NUMBERS WILL BE IN TERMS OF THE NUMBERS  OVER  THE  NOTES.
02200	THUS  1.5,-3/  WOULD  PUT  ITEM 1 EXACTLY HALF WAY BETWEEN NOTE 1 AND
02300	NOTE 2 AND AT  THE  VERTICAL  POSITION  OF  NOTE  LEVEL  -3.     WITH
02400	1.5,-3/.7,13/  THE FIRST ITEM WOULD BE AS BEFORE AND THE SECOND WOULD
02500	BE AT .7 OF THE DISTANCE FROM THE BEGINNING OF THE LINE AND THE FIRST
02600	NOTE AND AT THE VERTICAL POSITION 13.
02610	
02620	 ------  IF P3=999, THE TEXT MAY BE ENTERED FROM AN 'SOS' FILE. ------
02700	
02800	IF  P4 IS ANY NON-ZERO NUMBER (AND P6≠0) ALL ITEMS WILL BE PUT AT THE
02900	LEVEL INDICATED IN P4.  IN  THIS  CASE  TYPE  ONLY  ONE  NUMBER  (FOR
03000	HORIZANTAL  POSITION) PER ITEM.  THIS IS PROBABLY THE BEST WAY TO PUT
03100	IN THE TEXT OF VOCAL LINES.
03200	
03300	CURRENTLY (5/74) THREE TYPE FONTS ARE AVAILABLE.  THE DEFAULT FONT IS
03400	CALLED  'PRIMITIVE'.   ALSO  THERE  IS  'BDR40' AND 'BDI40'(ITALICS).
03500	ALL THESE INCLUDE UPPER AND LOWER CASE.  ****** NOTE THAT IF THE TYPE
03600	FONTS  ARE  TO  BE  MIXED THE FIRST ENTRY MUST INCLUDE A FONT CONTROL
03700	CHARACTER EVEN IF IT IS THE DEFAULT FONT.
03800	
03900		FONT CONTROL CHARACTERS:
04000			# = PRIMITIVE  (52)
04100			& = BDR40 (NON-ITALICS) (50)
04200			@ = BDI40 (ITALICS)  (51)
04300			< = OUTLINE ONLY  (53)
04400			> = FILLED   (54) (WILL NEVER FILL ON CRT HOWEVER.)
04500			$ = UPPER CASE (48)
04600		(use these last 2 controls only when not working with display.)
04700			% = LOWER CASE (49)
04800	
04900		WHEN INITIALLY USING THE FONTS THE UPPER-LOWER
05000		CASE CHARACTER MUST APPEAR AS WELL AS THE FONT CHARACTER.
05100		LATER FONT OR CASE CHANGES MAY APPEAR SINGLY.
05200	
05300	EXAMPLES:  TO GET THE FOLLOWING IN NON-ITALICS -
05400	
05500			Clarinet
05600	
05700	TYPE - &Clarinet/           (OR: $&C%LARINET/ WHEN USING ORDINARY TTY.)
05800	
05900		FOR THE NEXT WITH THE 2ND WORD ITALICS, THE 3RD PRIMITIVE-
06000	
06100	TYPE - &Oboe/@cresc./#v.s./
06200	
06300		&<Oboe/  WOULD PRINT "Oboe" in non-filled letters.
06400	
06500	MOST OF THESE COMMANDS ARE SEMI-STICKY.  TO BE SAFE THEY SHOULD BE
06600	RESET EACH TIME USED.
06700	
06800	WHEN LETTERS ARE EDITED THEY APPEAR UNDER CODE #16.  
06900	AT  EDIT  TIME  P13=1  WILL  CAUSE  HOMING  TO  A NEARBY NOTE.  NOW A
07000	NEGATIVE SIZE FACTOR (IN P5) WILL INVERT THE TEXT.  IF THE STAFF SIZE
07100	IS  LATER  CHANGED  THE  SPACING CONTINUITY OF STRINGS LONGER THAN 12
07200	LETTERS  WILL  BE  DISTURBED.   TO  CORRECT  THIS  SET  P10=1 FOR THE
07300	MISPLACED  UNIT  OF  TEXT.   IT  WILL  THEN  AUTOMATICALLY RESUME THE
07400	CORRECT POSITION AND RESET P10 TO 0.
07500	
07600		IN  GENERAL,  P6-P8  SHOULD  NOT  BE  EDITED.   EACH  OF  THE
07700	PARAMETERS  CONTAINS  THE  NUMBERS  FOR  4  CHARACTERS.  A TOTAL OF 8
07800	DIGITS IS USED IN EACH PARAMETER; 2 DIGITS PER CHARACTER.
07900	
08000		 THE STRING 'ABCDEFGHIJKLM' WOULD BECOME:
08100	
08200			P6 -- 10111213
08300			P7 -- 14151617
08400			P8 -- 18192021
08500	
08600		TO SEE THE CONTENTS OF ONE OF THESE PARAMETERS, 6, FOR EXAMPLE,
08700	TYPE '33 6'.  IF YOU THEN TYPED '6 13111213' THE STRING WOULD CHANGE TO
08800	'DBCDEFGHIJKLM'.   THIS METHOD OF EDITING IS NOT RECOMMENDED.
08900	
09000		NUMBERS ARE 0-1, UPPER CASE LETTERS 10-35, LOWER CASE BEGIN
09100		AT 70.  SPACE=47, NO MORE CHARS=99, QTR NOTE=58, HLF NOTE=59.
09200	
09300	(A NEW FORMAT FOR P6-8 WAS ACTIVATED 11/75. TYPE 10,99<CR> WHILE
09400	EDITING TEXT TO AUTOMATICALLY CHANGE THE FORMAT.)
09500	
09600	********  TO CENTER TEXT AT ANY POINT  ********
09700	
09800	A SINGLE INPUT STRING OF TEXT MAY BE CENTERED AT ANY HORIZANTAL POINT
09900	BY  SETTING  P10  TO THE CENTER POINT DESIRED.  WHEN THIS IS DONE THE
10000	TEXT WILL EXTEND AN EQUAL DISTANCE TO THE LEFT AND RIGHT OF THE POINT
10100	GIVEN IN P10.
10200	
10300	
10310	** ROTATION OF INDIVIDUAL LETTERS --- SET P11 TO DEGREES (CLOCKWISE).**
10320	
10330	
10400	
10500	ααααααααα SPECIAL INFO RE. TEXT AND THE 'PARTS' PROGRAM αααααααααα
10600	
10700	WHEN  USING  THE  'PARTS'  PROGRAM  TEXT  WHICH  IS  NOT  PART OF THE
10800	PARTICULAR LINE OF MUSIC BEING EXTRACTED IS USUALLY IGNORED.  TO MAKE
10900	ANY  TEXT  ITEMS  APPEAR  IN ALL PARTS EXTRACTED, ADD 100 TO THE SIZE
11000	FACTOR FOUND IN P5. (SEE SECTION ON 'PARTS' PROGRAM.)
     

00100	--------  SECTION III  -----------
00200	
00300	***********  LETTER COMMANDS  ***************
00400	
00500	'G name' = GET OLD DATA TO WORK ON.
00600	
00700		IF YOU GET THE MESSAGE "UNPACK IT" USE THE MSSAUX PROGRAM.
00800	
00900	'GM name' = GET MORE (ANOTHER FILE) TO ADD TO CURRENT DISPLAY
01000	
01100	'RS' = RESTART.  CLEARS BUFFERS AND SCREEN - NO RECOVERY POSSIBLE!
01200		'RS name' RESTARTS AND 'GETS' FILE 'name'.
01300	
01400	'SA name' - TYPE 'SAVE' OR 'SA'  ('SD' SAVES DISPLAY ONLY FOR DPY.F4)
01500	
01600		IF 'SAME' IS GIVEN AS A FILE NAME THE NAME WILL BE 
01700		SAME AS PREVIOUSLY.
01800	
01900	  'SB name' = SAVE BIG.  SAVES ALL IMPORTANT BUFFERS. FOR QUICKER READIN.
02000	  'SM' = 'SB' WITH THE SAME NAME AS PREVIOUSLY.
02100	
02200	   TYPE '99' TO BACK UP FROM FILE NAME REQUEST.
02300	
02310	'SC' = SPACING SCALE: SC, STAFF NUM  (101,99 ERASES IT)
02320			(THE SCALE NEED NOT BE ERASED BEFORE SHIFTING IT.)
02330			 TO A NEW STAFF.)
02340	
02350	
02400	'SH' ="SHOW" - WHEN THIS IS TYPED, FROM THIS POINT ON ALL NUMBERS AND
02500		LETTERS USING THE TYPE FONTS BDR AND BDI WILL APPEAR WITH THEIR 
02600		REAL OUTLINES.  
02700	          THIS SHOULD BE USED ONLY FOR CHECKING ON CLOSE SPACING AS
02800	          THE PROGRAM IS SLOWED CONSIDERABLY DUE TO THE GREAT NUMBER
02900	          OF VECTORS TO BE DRAWN.  
03000	'SHP' ="SHOW PRIM" - WILL CAUSE ALL LETTERS TO BE IN 'PRIM' FONT (UPPER 
03100		AND LOWER CASE) ON CRT.
03200	'SHX'  ='EXIT FROM SHOW" - WILL RETURN TO THE ORIGINAL DISPLAY MODE. 
03300		 SEE 7 AND 16 IN REGARD TO FONTS.
03400	
03500	
03600	'SP n' ="SPACING STAFF=n"  ESTABLISHES STAFF n AS THE BASIS FOR AUTOMATIC 
03700		SPACING OF ITEMS ENTERED BY MEANS OF CODES 14 OR 144.  
03800		SEE PG.10.
03900	'IN n,n,n,n....  "SCORE" INPUT:  -- SEE page 9.
04000	
04100	
04200	'READ name stf#'  "SCORE INPUT FROM 'SOS' FILE -- SEE page 9.
04300	
04400	'P n' = SEE EXACT CURRENT CONTENTS OF PARAMETER n WHILE IN EDIT MODE.
04500	
04600	 **** when NOT in edit mode ****
04700	'P n1,n2,n3  PRINTS RN ARRAY FROM ITEM n1 TO ITEM n2. n3=1 FOR LPT.
04800		(USING LPT IS FATAL! FOR CURRENT DPY AND MUST BE FOLLOWED BY
04900		<CALL>, F<CR> IN ORDER TO RELEASE THE LPT.)
05000		'P' <CR> WILL TYPE DATA FOR ALL ITEMS.
05100	
05200	'Z f x y' 'Z' = ZOOM LENS.  f=SIZE FACTOR, NEW CENTER IS x,y  
05300		(USE -512 TO 512 RANGE)
05400	
05500	IF  THE STAVES -1 THOUGH 2 ARE USED ONLY 2 NUMBERS NEED BE TYPED. Z n
05600	WHERE n IS A NUMBER OF THE FOLLOWING FORM WILL INCREASE THE  SIZE  BY
05700	THE  LEFT DIGIT OF n.    Z 200 WILL MAGNIFY BY 2 AND PUT THE FAR LEFT
05800	SIDE TO THE CENTER OF THE SCREEN.  200.5 WILL KEEP THE	CENTER AS IS.
05900	201 WILL PUT THE FAR RIGHT SIDE TO THE CENTER. 300 WILL MAGNIFY BY 3,
06000	ETC.
06100	
06110	'AD' =ADJUST STEMS TO MEET BEAMS: "AD" STAFF NUM (99=ALL STAVES)
06114				  (ALSO REMOVES TAILS WHERE NEEDED)
06118	
06122	------ HOMING A BEAM FROM ONE STAFF TO ANOTHER -----
06126	'AD' n1 n2 ------ IF 2 NUMBERS FOLLOW AD THE 1ST  SHOULD  BE  THE  ITEM
06130	NUMBER  OF  A  BEAM  AND THE 2ND THE STAFF NUMBER OF A NOTE WHICH THE
06134	BEAM  IS  TO  HIT.   THIS  ALLOWS  THE  BEAM TO HOME TO ANY NOTE ON A
06138	DIFFERENT STAFF.
06142	
06146		BEFORE USING THIS, CERTAIN REQUIREMENTS MUST BE MET.   P6  OF
06150	THE  BEAM SHOULD BE SET TO THE APPROXIMATE HORIZANTAL POSITION OF THE
06154	NOTE TO BE HIT.  P4 AND P5 OF THE BEAM SHOULD BE SET TO  THE  DESIRED
06158	POSITION.  P7 SHOULD INDICATE THE STEM DIRECTION FOR THE BEAM. IF THE
06162	BEAM IS COMPOSITE, THIS PROCEDURE MUST BE FOLLOWED FOR EACH BEAM ITEM
06166	INVOLVED.
06170		THE NOTE ON THE OTHER STAFF MAY HAVE A STEM OF ANY LENGTH AND
06174	IT MAY BE IN FRONT OF OR BEHIND THE ORIGIN POINT OF THE BEAM.  IT  IS
06178	PROBABLY  BEST TO USE THIS FEATURE ONLY AFTER! THE OTHER '19' FEATURE
06182	HAS BEEN USED.  CHECK STEM LENGTHS AND MEETING POINTS CAREFULLY AFTER
06186	USE.
06190	
06195	
06200	<<<<<<<<<< HOW TO RUN A PROOF ON THE 'XGP' >>>>>>>>>>>>>>>>
06300		THE  PROGRAM 'MP' WILL CREATE A FILE FOR THE XGP PROGRAM 'XM'
06310	OR FOR THE CALCOMP.  GENERALLY USE SIZE FACTOR = 1 FOR XGP PRINTING.
06320	
06330	THE FIRST PROMPT IN MP IS 'RESET BOTTOM?' THE ANSWER  SHOULD  USUALLY
06340	BE  <CR>  WHEN MP'S OUTPUT IS TO GO TO XM. 'P' WILL CAUSE ALL LETTERS
06350	NUMBERS TO PRINT WITH THE 'PRIMITIVE' FONT.  'A' WILL  RESET  TO  THE
06360	ORDINARY MODE IF A 'P' HAD BEEN GIVEN EARLIER.
06365	
06370		IF THE  AUTOMATIC  'MOVE-UP'  FEATURE  INVOLVING  P8  OF  THE
06380	PARAMETERS  FOR STAFF 0 IS USED (SEE PG.5) AND MORE THAN ONE SEPARATE
06390	FILE IS TO BE CREATED FOR PRINTING ON THE CALCOMP, THE ANSWER TO  THE
06400	FIRST  PROMPT  SHOULD BE 'N' FOR ALL RUNS AFTER THE LOWEST PORTION OF
06410	THE PAGE IS DONE.
06420	
06430		IF THE PAGE IS IN MORE THAN ONE SECTION ALWAYS START WITH THE
06440	BOTTOM  SECTION FIRST.  YOU WILL BE ASKED FOR FILE NAMES.  WHEN THERE
06450	ARE NO MORE TO BE GIVEN TYPE <CR>.   THE QUESTION, "MOVE UP AT  END?"
06460	SHOULD  BE ANSWERED BY Y, N OR WITH A NUMBER.  A NUMBER WILL INDICATE
06470	THE NUMBER OF INCHES TO MOVE FROM THE LEVEL OF STAFF 0 AT POSITION  0
06480	TO  STAFF  0,  POSITION 0 IN THE SUCCEEDING FILE.  'Y' WILL PLACE THE
06490	SUCCEEDING FILE'S LOWEST POINT ABOUT 1/2" ABOVE THE HIGHEST POINT  OF
06500	THE  FIRST  FILE.   'N'  IS USED TO WRITE FILES EXACTLY ON TOP OF ONE
06510	ANOTHER.
06520	
06530		IF THE FILE NAMES FORM A SERIES OF 5 LETTER NAMES ENDING WITH
06540	CONSECUTIVE  LETTERS  OF  THE  ALPHABET,  YOU  MAY TYPE THE LAST NAME
06550	FOLLOWED BY THE TOTAL NUMBER OF FILES THAT ARE TO BE PRINTED ON  THAT
06560	SINGLE  PAGE.   THE  FILES WILL BE FOUND IN THE PROPER SEQUENCE.  FOR
06570	EXAMPLE, 'TRC4D 4' WILL PRINT FILES TRC4D THROUGH TRC4A.
06575	
06580		(AN  ALTERNATIVE METHOD IS TO START WITH THE NAME ENDING WITH
06590	THE LOWEST LETTER OF THE ALPHABET AND FOLLOW IT WITH THE  NUMBER  99.
06600	USING  THE  ABOVE  EXAMPLE,  ONE WOULD TYPE 'TRC4A 99'.   THE PROGRAM
06610	WOULD THEN LOOK FOR THE 'TRC4' FILE ENDING WITH HIGHEST LETTER OF THE
06620	ALPHABET  -  I.E.   'TRC4D'  -  AND  BEGIN  BY  PROCESSING THAT FILE,
06630	CONTINUING BACKWARDS THROUGH THE ALPHABET.)
06635	
06640		IF  A SECOND NUMBER IS TYPED, THE FILES WILL BE EVENLY SPACED
06650	BY THAT NUMBER OF INCHES BETWEEN THE BOTTOM OF EACH  STAFF  0  --  AS
06660	DESCRIBED ABOVE.
06670	
06680	A SIZE FACTOR OF 1 CREATES THE CORRECT WIDTH FOR 8 1/2" PAPER.   TYPE
06690	A SECOND NUMBER(1) AFTER 'SIZE FACTOR' TO  HEAVIER  STAFF  LINES  AND
06700	LEDGER LINES.  (SOMETIMES NECESSARY WITH XGP.)
06710	
06720	WHEN THE PROGRAM HAS EXITED A FILE CALLED PLT.DMD HAS BEEN WRITTEN ON
06730	THE DSK.   THE DATA MAY NOW BE PRODUCED ON THE PLOTTER (BY USING  THE
06740	PLOT  PROGRAM,  P.DMP[MSS,LCS])  OR  ON  THE  XGP  (BY  USING THE XGP
06750	PROGRAM, XM.) (PLOT HAS NO PROMPTS AND XGP IS SELF-EXPLANATORY.)
10600	
10700	
10800	---- FOLLOWING ARE OLD PLOT COMMANDS ----
10900	'P' N1, N2, N3, N4, N5, N6 = PLOT DISPLAY
11000		 N1=WIDTH FAC., 
11100		 N2=HEIGHT FAC.
11200	         N3=1, PLOTS ONLY THIN LINES. N3=2, PLOTS ALL BUT THIN LINES.
11300		 N4=1  NO MOVE AT START 
11400		 N5=1  NO MOVE AT END.
11500		 N6= MOVE UP 'N' STAVES AT END.
     

00100	--------  SECTION IV  -----------
00200	
00300	******  VARIOUS WAYS TO GET INTO EDIT MODE  ********
00400	
00500	
00600	   TO MOVE LAST ITEM ENTERED LFT-RT OR UP-DOWN:
00700		'L', 'R', 'U' OR 'D' + NUM OF STEPS TO LFT-RT 
00800			(NOTHING ELSE REQUIRED)
00900	   THIS WORKS ONLY IMMEDIATELY AFTER THE ITEM HAS BEEN ENTERED.
00910	
00920	  ONCE IN EDIT MODE, THE SETTING OF P13 TO 1 WILL USUALLY CAUSE THE
00930	  CURRENT ITEM TO CENTER ON A NEARBY NOTE'S HORIZANTAL POSITION.
01000	
01100	
01200	'ED(IT)', POS, STAFF, (CODE NUM) ----- TO USE LIGHT PEN: TYPE 'ED' <CR>
01300	
01400	A VERTICAL LINE WILL APPEAR AT  THE  POSITION  GIVEN  AND  ALL  ITEMS
01500	WITHIN  5  SPACES OF THE LINE ON THAT STAFF WILL COME UP FOR EDITING.
01600	TO PASS OVER AN ITEM TYPE <CR>.  SEE BELOW FOR METHOD OF CHANGING THE
01700	VARIOUS PARAMETERS.
01800	
01900	IF THE STAFF NUMBER IS GREATER THAN 4, ITEMS ON  ALL  STAVES  MAY  BE
02000	EDITED.
02100	
02200	IF A CODE NUMBER IS GIVEN, THE ITEM NEAREST THE LINE WITH THAT NUMBER
02300	WILL COME UP.  FOLLOWING, ALL OTHER ITEMS OF THAT NUMBER ON THAT LINE
02400	WILL COME UP.
02500	
02600		  WITH THE LIGHT PEN, MOVE CURSOR TO THE ITEM TO BE
02700		  EDITED.  TYPE <CR> AND ITEMS ON ALL STAVES NEAR THAT POINT
02800		  WILL COME UP FOR EDITING IN ORDER. (USES SAME MODE
02900		  AS ABOVE.)
03000	
03100	S(ET) AND A(LIGN) ---------
03200	
03300	IF YOU TYPE 'S' WHILE IN THE ABOVE  FORM  OF  EDIT  MODE  ('ED')  THE
03400	VERTICAL  LINE  WILL  JUMP  TO THE POSITION OF THE CURRENT ITEM UNDER
03500	CONSIDERATION. TYPE <CR> TO PROCEED TO OTHER ITEMS.   AT  THIS  POINT
03600	TYPING 'A' WILL  AUTOMATICALLY ALIGN THE CURRENT ITEM TO THE POSITION
03700	OF THE ITEM AT 'SET'.  TYPE 'X' TO EXIT FROM ANY EDIT MODE.
03800	
03900	'LP'=LIGHT PEN --- THIS MAY BE USED IN ANY FORM OF EDIT MODE.  MOVE
04000			THE CURSOR TO THE LOCATION DESIRED FOR THE ITEM.
04100			<CR> WILL MOVE THE ITEM.  NOTE THAT HORIZANTAL
04200			MOVEMENT IS FREE BUT VERTICAL MOVEMENT IS BY STAFF
04300			NUMBERS.  ALL DETAILS OF VERTICAL MOVEMENT MUST BE
04400			TYPED IN.
04500	
04600	
04700	  'I' N = EDIT ITEM NUMBER N
04800			THIS MAY BE TYPED AT ANY TIME WHILE IN EDIT MODE.
04900			THE ITEM INDICATED WILL NEXT COME UP.
05000	  'ST' STAFF NUM, CODE NUM--EDITS ONLY ITEMS OF THAT CODE NUM ON
05100	           THAT STAFF.   IF CODE=0, THEN ALL ITEMS WILL COME UP.
05200	
05300	
05400	***********  HOW TO CHANGE PARAMETERS  ****************
05500	
05600	
05700	  IN EDIT MODE: 'L','R','U', OR 'D' FOLLOWED BY N, MOVES N SPACES TO
05800	    LEFT, RIGHT, UP OR DOWN.  2 DIRS. MAY BE GIVEN AT ONCE.
05900	
06000	  AFTER AN 'L' OR 'R' MOVE HAS BEEN MADE, THE LETTER ALONE (NO NUMBER)
06100	  WILL SUFFICE TO MOVE THE SAME VALUE AGAIN.  THE SAME APPLIES TO 
06200	  THE 'U-D' PAIR.
06300	
06400			****-- OR --****
06500	
06600	  PN1,N1  PN2,N2  PN3,N3  ETC. (TYPE PAIRS OF NUMS TO CHNG PARAMS)
06700			THE FIRST OF EACH PAIR MUST BE THE PARAMETER NUMBER
06800			AND THE SECOND WILL BE THE NEW VALUE FOR THAT PARAM.
06900	
07000			IF 2 ZEROS ARE ADDED AFTER A PARAMETER NUMBER (i.e.
07100			600 INSTEAD OF 6) THE SECOND NUMBER OF THE PAIR
07200			WILL BE ADDED TO THE CURRENT VALUE OF THAT PARAMETER
07300			INSTEAD OF MERELY REPLACING.  THIS IS USEFUL FOR 
07400			EXTENDING P6 OF SLURS OR BEAMS, ETC.
07500	
07600			 <CR> ENDS EDIT AND MOVES TO NEXT ITEM FOR EDIT
07700			 'X' ENDS EDIT, EXITS TO INPUT MODE
07800			 'C'SAVES OLD AND NEW FORMS, I.E. "COPIES" ITEM.
07900			 'C' N  SAVES & MOVES TO ITEM N.
08000			 'DEL'  DELETES ITEM AND MOVES ON TO NEXT
08100	
08200	HOMING	**** SET P13=1 TO HOME IN ON ANY NEARBY NOTE ON SAME STAFF.
08300			(P13 RESETS SELF TO 0)
08400	
08500	
08600	GROUP EDIT COMMANDS - - - - - - - 
08700	
08800	'MOVE' OR 'M' <CR>:  TO MOVE GROUPS OF ITEMS
08900	
09000	 YOU WILL BE ASKED TO TYPE: 
09100			STAFF NUM, POS1, POS2, (CODE NUM)
09200	
09300	    TO SHRINK OR EXPAND ALL STAVES GIVE STAFF NUM = 11.
09400	    IF NO CODE NUM(4TH NUM) IS GIVEN ALL ITEMS IN THE AREA WILL BE MOVED.
09500	
09600	     IF 'L' IS GIVEN AS STAFF NUM, THE AREA TO BE MOVED MUST
09700	     BE INDICATED WITH THE LIGHT PEN.
09800	
09900	   *********  88 NOT WORKING NOW  4/75 **************
10000	    TO MOVE A CONTINUOUS GROUP OF ITEMS TYPE:
10100			88,  1ST ITEM NUM,  LAST ITEM NUM
10200	
10300	          ----- 'ASK' FEATURE ****** NOT WORKING NOW 4/75 *****------
10400	        IF 100 IS ADDED TO THE CODE NUM, YOU WILL BE ASKED IF YOU
10500	   WANT TO MOVE EACH ITEM INDIVIDUALLY.  'X' WILL EXIT FROM 'MOVE'.
10600	
10700	     TYPE '99' AT ANY TIME TO BACKUP WHEN IN 'MOVE', 'COPY', ETC.
10800	
10900	
11000	THE SECOND PROMPT IS:
11100	   TYPE NEW STAFF #, POS1, POS2, UP-DOWN #
11200	
11300	     IF POS2=0, POS1 WILL BE TAKEN AS THE ABSOLUTE 'MOVE' VALUE.
11400	
11500	'COPY' OR 'C' <CR>:  TO COPY GROUPS OF ITEMS.
11600	
11700		WORKS SAME AS 'MOVE' BUT ORGINAL IS LEFT BEHIND.
11800	
11900	'DELETE' OR 'DE' <CR>:  TO DELETE GROUPS OF ITEMS.
12000	
12100		SAME STRUCTURE AS 'MOVE'.
12200	
12300	 *******  N,-99  WILL DELETE ALL LINES EXCEPT! LINE 'N'. 
12400		******** USE WITH GREAT CARE!! *********
12500	
12600	'ALTER' OR 'A' <CR>:  TO ALTER GROUPS OF ITEMS.
12700	
12800		FIRST PART IS SAME AS 'MOVE'.  AFTER THE AREA HAS BEEN
12900		DESIGNATED YOU WILL BE ASKED TO SPECIFY PARAMETER CHANGES
13000		WITH PAIRS OF NUMBERS -- Pn, Change, Pn, Change, etc.
13100	
13200	
13300		IF THE FIRST NUMBER GIVEN IS 12 AND YOU HAVE ALREADY
13400		SPECIFIED CODE NUM 1, ALL NOTE STEMS, BEAMS AND SLURS
13500		IN THE GIVEN AREA WILL BE INVERTED.
13600	
13700		WITH CODE 8 (SLURS), 12 WILL REVERSE THE CURVE AND PUT
13800		IT ON THE "WRONG" SIDE OF THE NOTE.
13900	
14000		IF THE FIRST NUMBER GIVEN IS 13 AFTER CODE NUM.1 HAS BEEN
14100		SPECIFIED THEN ALL NOTES, RESTS AND BEAMS WITHIN THE GIVEN
14200		AREA WILL BECOME "MINIS".  USE THIS FOR MAKING CUES, ETC.
14210	
14220	
14800	'J'  WILL AUTOMATICALLY JUSTIFY LINES, ALLOWING PROPER SPACES FOR
14900	       FOR MOST ACCIDENTALS, CLEFS, ETC.  A STAFF NUM >5 WILL JUSTIFY
15000	       ALL LINES AS A UNIT.  IF POS2 = 0, IT WILL BE TAKEN AS 200.
16000	
16010	
16020	'DP' n1, n2, . . . . .: = DISAPPEAR, STF n ....
16040	
16200		THIS MAKES STAFF n, ETC. DISAPPEAR FROM THE DISPLAY.  THIS
16300		DOESN'T DELETE ANY DATA - IT JUST MAKES IT TEMPORARILY
16400		INVISIBLE.  THERE ARE 2 REASONS FOR DOING THIS.  WHEN SEVERAL
16500		STAVES ARE BEING USED THERE IS SOMETIMES CONSIDERABLE FLICKER ON
16600		THE DISPLAY.  'DP' ALLOWS ONLY SELECTED STAVES TO APPEAR, THUS
16700		STOPPING THE FLICKER.  ALSO WHEN THE SYSTEM IS HEAVILY LOADED
16800		MANY FEATURES OF THIS PROGRAM WILL RUN MUCH FASTER IF 'DP' IS
16900		USED.  TO MAKE ANY STAFF REAPPEAR JUST TYPE 'DP' n 99 AND THE
16910		STAFF WILL COME BACK.  'DP' 11 MAKES ALL INVISIBLE STAVES REAPPEAR.
17000		END WITH A 99 TO MAKE THE EFFECT IMMEDIATE.
     

00100	--------  SECTION V  ---------
00200	
00300	  'SCORE' ITEMS: NOTES-- 'IN', STAFF, MODE
00400	
00500		'READ' (INSTEAD OF 'IN')WILL READ EDIT FILE. SEE BELOW FOR FILE
00600		FORMAT.  THE PROGRAM WILL ASK FOR STAFF NUMBER AND FILE NAME.
00700	
00800	****** THERE ARE 3 INPUT MODES POSSIBLE.  THE 1ST DEALS SEPARATELY
00900		WITH PITCH AND RHYTHM PARAMETERS.  THE 2ND COMBINES THEM
01000		IN ONE INPUT LIST.  ALL THE EXAMPLES BELOW (UNTIL MODE 2
01100		IS MENTIONED) WILL REFER TO MODE 1.
01200			TO USE MODE 2 SET P3 TO 2.  e.g. IN -3 2
01210	
01220		THE 3RD MODE IS TO BE USED WHEN A USER-ADDED SUBROUTINE IS
01230		TO BE ACCESSED.  SET THE MODE NUMBER TO 500 FOR THIS.
01300	
01400	
01500	****  HOW TO USE "SCORE" ITEMS  ****
01600	
01700		 NOTES ARE TYPED IN ALMOST EXACTLY AS IN THE "SCORE" PROGRAM.
01800	  I.E. S=#, F=b, N=NATURAL (bb AND ## ARE NOT AVAILABLE YET.)
01900	  OCTAVE NUMBERS MUST BE USED.  'P' (FOR PROXIMITY MODE) MAY
02000	  BE USED.  'O' RETURNS TO ORDINARY MODE.
02100	
02200	 R=REST   RI=INVISIBLE REST
02210	 RU=REST UP(ABOVE STAFF)   RD=REST DOWN(BELOW STAFF)
02220	 RW=WHOLE REST   Rn=WHOLE REST WITH THE NUMBER n ABOVE IT (UP TO 99).
02400	
02500	ALL OF THESE MUST BE GIVEN TIME VALUES UNDER 'RHYTHM' BUT THE LAST TWO
02600	MAY BE GIVEN ANY RHYTHMIC VALUE DESIRED.
02700	
02800		  TREBLE CLEF IS ASSUMED.  TO ENTER A CLEF, TYPE CLEF NAME 
02900	  FOLLOWED BY A SLASH. (TR/  BA/  AL/  TEN/)   PRECEDED  THE  CLEF
03000	  NAME BY A MINUS SIGN (-BA/) TO HAVE THE AFFECT OF A CLEF WITHOUT
03100	  THE CLEF ACTUALLY APPEARING. (IF NO CLEF IS GIVEN IT WILL ALWAYS
03200	  BE TREBLE CLEF POSITION.)
03300	
03400	USE 'M' (FOR MEASURE) TO ENTER A BAR LINE.  'M2' WILL MAKE A  BAR  GO
03500	UP 2 STAVES; 'M3' WILL GO UP 3 STAVES, ETC.
03510	'MD', 'MD2', ETC. WILL MAKE A DOUBLE BAR WITH THE HEAVY ONE TO THE 
03520	LEFT.  (THESE MUST BE EDITED LATER TO MAKE THIN DOUBLE BARS, REPEAT
03530	BARS, ETC.)
03600	
03700	  METER (TIME SIGNATURE) MAY BE ENTERED WITH /Tn,m/ WHERE n,m ARE
03800	  THE TOP AND BOTTOM METER NUMBERS.  IF n=99 AND m=1 THE LETTER C WILL
03900	    PRINT. (THE 1 MUST BE THERE. i.e./T99 1/)  98 1 GIVES 'ALLA BREVE'.
04000	
04100	  FOR KEY SIGS TYPE /Kna/ WHERE n=NUMBER OF ACCIDENTALS AND
04200			a='S' OR + FOR SHARPS, OR - OR 'F' FOR FLATS.
04300	
04400	  NO MORE THAN 72 CHARACTERS MAY APPEAR
04500	  ON ONE LINE OF INPUT. (BUT MORE THAN ONE LINE MAY BE USED.)
04600	  THE LINE MUST END WITH A SLASH OR, WHEN NO MORE NOTES ARE
04700	  TO APPEAR, WITH A SEMI-COLON.
04800	
04900		THE MOTIVIC FEATURES OF "SCORE" MAY BE USED WITH INPUT
04910		MODE 1 (BUT WITH NO "NESTING").  MOTIVES ARE SAVED 
04920		WITH DISPLAY DATA AND CAN BE REUSED WHEN WORKING LATER.  
04930	  (NO MORE THAN 200 ITEMS CAN BE SAVED IN ANY  LIST OF MOTIVES.)
05000		THE TRANSPOSITION FEATURES ASSOCIATED WITH THE 'MOTIVIC'
05010		PROCEDURES ARE A LITTLE DIFFERENT IN MSS AS COMPARED TO 
05020		'SCORE'.  IN THE FOLLOWING EXAMPLE A SCALE AND CHORD ARE
05030		ARE SET UP AS SEPARATE MOTIVES AND IN COMBINATION TO FORM
05040		A 3RD MOTIVE.
05050	
05060		A(C4/D/EF/F)/B(D:F:AF)/Q(@A/@B)/
05070	
05080		THIS WOULD CAUSE THE SCALE AND THE CHORD TO PRINT TWICE.
05090		THEN - -
05100	
05110			@A4/@Q3/     WILL GIVE THE SAME AS - -
05120	
05130		G4/A/BF/C5/ F4/G/AF/BF/ G:B:DF5/
05140	       |__________| |_________| |______|
05150	      'A' ↑ 4 STEPS   'A' ↑ 3   'B' ↑ 3
05160			    |__________________|
05170				'Q' ↑ 3 STEPS
05300	
05310		RETROGRADES AND INVERSIONS MAY BE USED, BUT DON'T FORGET
05320		THAT THE SAME ACCIDENTALS WILL ALWAYS APPEAR ON EACH NOTE
05330		NO MATTER WHAT THE NUMBER OF STEPS OF CHANGE.
05340	
05400	  CHORDS ARE CONSTRUCTED BY USING THE COLON IN PLACE OF THE SLASH
05500	  BETWEEN NOTES.
05510	
05600	  THE COLON CAUSES THE NOTE TO OCCUPY THE SAME RHYTHMIC POSITION
05700	  AS THE FIRST NOTE TO APPEAR AFTER A COLON.  THE STEM DIRECTION IN
05800	  CHORDS WILL BE DETERMINED BY THE ORDER OF APPEARANCE OF THE NOTES.
05900	  IF THE FIRST NOTE IS THE LOWEST, THE STEM GOES UP; IF THE FIRST IS
06000	  THE HIGHEST, THE STEM GOES DOWN.  POSITIONING OF NOTES ON PROPER
06100	  SIDE OF STEM AND (IN MOST CASES) SPACING OF ACCIDENTALS AND DOTS
06200	  IS AUTOMATIC.
06300	
06400	   NOTE THAT SINCE ALL THE NOTES OF A CHORD USE ONLY ONE RHYTHM
06500	   ALL REPEAT FEATURES CONSIDER ALL NOTES OF A CHORD AS ONE 
06600	   ENTITY.   / C4 / D:F:A / REP 2 3/  WILL DRAW THE SEQUENCE 
06700	   C, D MINOR CHORD THREE TIMES.  / D:F:A X3/ DRAWS 3 CHORDS.
06800	   / D:F:A //// MAKES 4 CHORDS.
06900	
07000	
07100		ALL NON-RHYTHMIC ITEMS (CLEFS, ETC.) WILL BE IGNORED IN 
07200		REGARD TO THE 1ST NUMBER AFTER 'REP'.
07300		/ C4 / M / D:F:A / REP 2,3 / WILL CONSIDER THE 2 ITEMS
07400		TO BE 'C' AND THE D MINOR CHORD, BUT THE BAR LINE WILL
07500		BE INCLUDED IN THE REPEAT.  THUS THE PROGRAM WILL DRAW
07600		'C', 'BAR', 'D MINOR' - THREE TIMES.
07700	
07800	  GRACE NOTES MAY BE USED -- SEE UNDER RHYTHM BELOW.
07900	
08000		TO BYPASS AUTOMATIC STEM DIRECTIONS TYPE SU/ (STEM UP) OR SD/
08100	(STEM DOWN).   ONCE EITHER OF THESE APPEARS ALL THE STEMS WILL GO  IN
08200	THE INDICATED DIRECTION UNTIL A CHANGE IS GIVEN.
08300	
08400	********* NOTE THAT ALL REPEAT FEATURES (X, /, REP) IGNORE 'SD', 'SU'
08500	AND 'M' INDICATIONS.   THUS   M/C4/SD/E/F/M/SU/REP 3/  WILL DISPLAY A
08600	BAR LINE,  C,  E AND F WITH STEMS DOWN, A BARLINE, C WITH STEM UP AND
08700	E AND F WITH STEMS DOWN AND FINALLY ANOTHER  BARLINE.    THE  'REP 3'
08800	SAYS THAT 3 NOTES AND THE THINGS THAT GO WITH THEM WILL BE REPEATED.
08900	
09000	   (INPUT MODE 1)
09100	   EX.  M/BASS/ K4F /T12 8 /C3/EF/E/ M /D X 3/EN2:GS:B/M;
09200	
09300	    A BAR LINE COMES FIRST, THEN BASS CLEF.
09400	    NEXT IS A 4 FLAT KEY SIGNATURE, FOLLOWED BY 12/8 TIME.
09500	    THE 3RD NOTE WILL BE AN 'E' WITH NO ACCIDENTAL.
09600	    A BAR LINE WILL PRECEED THE THREE Ds.
09700	    THE LAST 3 NOTES WILL BE AN E MAJOR CHORD.
09800	    ENDS WITH A BAR LINE.
09900		(In the example above the spaces on either side of the
10000		slashes are optional [to help proof reading].  The space
10100	    	between 12 and 8 in  "T12 8" is required.)
10200	
10250	
10300		AFTER THE LAST NOTE HAS BEEN ENTERED THE PROGRAM WILL 
10400	  ASK FOR 'POS1, POS2, (SPC)'.
10500	  THE NOTES WILL BE EVENLY SPACED BETWEEN THE 2 POSITIONS ENTERED.
10600	(<CR>=0,200)  AFTER THE RHYTHM IS ENTERED THE NOTES  WILL  BE  SPACED
10700	EXACTLY  ACCORDING  TO  THEIR  RHYTHMIC  VALUES  IF NO 3RD NUMBER WAS
10800	TYPED. IF A 3RD NUMBER IS ENTERED, THE RHYTHMIC VALUES WILL BE SPACED
10900	ACCORDING  TO  A  PSUEDO-FIBONACCI  SCALE.  I.E. HALF NOTES WILL TAKE
11000	SOMEWHAT LESS THAN TWICE AS MUCH SPACE AS  QUARTERS,  ETC.   ---  USE
11100	THIS  MOSTLY  FOR  SINGLE-LINE PARTS!!  
11200	
11300	NEXT YOU WILL BE ASKED TO 'TYPE RHYTHM'.
11400	  '99' WILL BACK UP, '999' WILL ESCAPE FROM "SCORE" MODE.
11500	
11600	   A rhythmic duration must be given for each note, rest or 
11700	   chord previously entered. (Clefs, bar lines, etc. should
11800	   ignored.)
11900	
12000	THE MOST COMMON RHYTHMIC VALUES MAY BE  ENTERED  WITH  LETTER  NAMES.
12050	
12100	S=SIXTEENTH,  E=EIGHTH,  Q=QUARTER,  H=HALF, W=WHOLE, D=DOUBLE WHOLE,
12200		 T=TRIPLET(i.e.12th NOTES) , G=GRACE NOTE (OR 88TH)
12210	
12220	  'T' IN FRONT OF ANY OF THE LETTERS (EXCEPT 'G') WILL PRODUCE THE
12230	  TRIPLET VALUE OF THAT UNIT.  E.G. 'TQ' = A TRIPLET QUARTER NOTE.
12240	 ('T' CANNOT BE USED DIRECTLY IN FRONT OF NUMBERS!)
12250	
12300	THESE ARE THE ONLY! LETTER NAMES  THAT  MAY  BE  USED.   HOWEVER  ANY
12400	RHYTHMIC  VALUE,  NO  MATTER HOW COMPLEX, MAY BE ENTERED IN NUMERICAL
12500	FORM.  16=SIXTEENTH, 10=TEN IN THE TIME OF A WHOLE NOTE, 12=TWELVE IN
12600	THE TIME OF  A  WHOLE  NOTE(THE  NORMAL  TRIPLET), ETC.   NUMBERS AND
12700	LETTERS MAY BE MIXED IF DESIRED.
12800	
12900	DOTTED RHYTHMS WILL AUTOMATICALLY PUT DOTS ON NOTES.    MORE  COMPLEX
12910	RHYTHMS  MUST  BE  DOTTED  INDIVIDUALLY.   (THEY  WILL  BE  CORRECTLY
12920	SPACED.)
13200	
13300	   4 16TH NOTES, A QUARTER, A DOTTED 8TH, 16TH, HALF,
13400	   3 TRIPLETS, AND A WHOLE NOTE FOLLOW:
13500	
13600		16////4/8./16/2/12///1;
13700		(OR: S////Q/E./S/H/T///W; )
13800	
14400		**** FOR GRACE NOTES, TYPE 'G' OR RHYTHMIC VALUE OF 88.
14500	
14510	
14600	******  INPUT MODE 2 ********  ONLY DIFFERENT FOR NOTES AND RHYTHMS
14700	
14800	   IN THIS CASE EACH NEW RHYTHMIC VALUE (NUMBERS ONLY) MUST BE 
14810	   ENTERED JUST BEFORE THE NOTE (OR CHORD) TO WHICH IT WILL APPLY. 
14820	   REPEAT FEATURES WILL ACT IN THE NORMAL WAY.
15100	
15200		TR/4 C4/ D / 8 E/F// 16 G/ A/ 4//REP 4;
15300	   PRODUCES - TREBLE CLEF, QUARTER-C, QUARTER-D, EIGHTH-E,
15400	   2 TIMES 8TH-F, 16TH-G, 16TH-A, QUARTER-A, QUARTER-A, THE LAST 4
15500	   ITEMS (G A A A)REPEAT WITH THEIR GIVEN RHYTHMS.
15600		OF COURSE THERE WILL NOW BE NO PROMPT FOR RHYTHMS.
15700	
15800	
15900		AFTER THE RHYTHM HAS BEEN ENTERED THE NEXT  REQUEST  IS  'ADD
15910	MARKS?'  TYPE 'Y', 'N', 99 OR 999. IF 'YES' GIVE NOTE NUMBERS AND THE
15920	ABBREVIATIONS FOR MARK NAMES.  WHEN  COUNTING  NOTES,  IGNORE  RESTS,
15930	CLEFS  ETC.   CHORDS  COUNT  AS  1  NOTE.  THE  ABBREVIATIONS FOR THE
15940	ACCENTS,  ETC.  ARE   W(EDGE),   A(CCENT),   FE(RMATA),   S(TACCATO),
15950	T(ENUTO)(DASH),  D(OWN  BOW), U(P BOW), H(ARMONIC), PL(US), CR(ESC.),
15960	HW (HEAVY WEDGE), DI(M.), AC(CEL.), R(IT.), C+, C-. 
15965		THE  LAST  TWO  LISTED, C+,C-, WILL PRODUCE THE LINEAR CRESC.
15975	AND  DECRESC.  SIGNS.   WITH  THESE  TWO  ITEMS ONLY! YOU MUST TYPE A
15985	SECOND POSITION NUMBER.
16700	
16800	 /1.3  C+  3/	PUTS A CRESC. SIGN FROM BETWEEN  NOTES 1 AND 2 EXTENDING
16900			TO NOTE 3.
17000	
17100	 /.5  C-  3.5/ 	PUTS A DECRESC. SIGN FROM 1/2 WAY BETWEEN  THE POSITION 1
17200	(GIVEN EARLIER) AND NOTE 1 TO A POINT 1/2 WAY BETWEEN NOTES 3 AND 4.
17300	
17400	
17500	THE DYNAMICS, ETC. WHICH MAY BE ENTERED  ARE:
17600	
17700	 PPP, PP, P, MP, MF, F, FF, FFF, CRESC., DIM., ACCEL., RIT.
17800	
17900	ALL THESE MAY BE PUT DIRECTLY UNDER NOTES, OR, BY USING FRACTIONAL NOTE
18000	NUMBERS, BETWEEN NOTES.
18100	
18200		/1.5 PP/  PUTS PP 1/2 WAY BETWEEN NOTES 1 AND 2.
18300	
18400	
18500	UP TO 2 MARKS(I.E. NOT DYNAMICS, ETC.)  MAY BE ENTERED FOR
18600	EACH NOTE -- BUT EACH MARK MUST BE ENTERED SEPARATELY  WITH  ITS NOTE
18700	NUMBER. IN ADDITION TO THE MARKS A DYNAMIC INDICATION, ETC. MAY BE 
18800	ENTERED FOR THE SAME NOTE.
18900	
19000		EXAMPLE:  1 A / 6 A / 7 T / 10 S / 10 W;
19100		 = 1 ACCENT/6 ACCENT/7 TENUTO/10 STACCATO/10 WEDGE ACCENT
19200	
19300	
19400	     NEXT YOU WILL BE ASKED 'ADD BEAMS?'  TYPE 'Y', 'N' OR nB TO THIS.
19500		nB WILL PLACE BEAMS AUTOMATICALLY. (SEE BELOW)
19600	        '99' WILL BACK UP, '999' WILL ERASE INPUT AND 
19700	        LEAVE "SCORE" MODE.
19800	
19900	        'G' (FOR GO) (INSTEAD OF 'Y' OR 'N') WILL OMIT ALL FURTHER
20000	        PROMPTS IN THIS MODE.
20100	
20200	BEAMS WILL BE ENTERED AUTOMATICALLY  IF  YOU  TYPE  nB;  WHERE  n=THE
20300	NUMBER  OF  EIGHTH  NOTES  TO  BE  BEAMED TOGETHER.  2B; WILL BEAM BY
20400	QUARTERS (I.E. 2 8THS), 3B; GIVES STANDARD BEAMING  FOR  3/8  OR  6/8
20500	TIME.   DECIMAL NUMBERS MAY BE USED FOR N. THUS 1.5B; WOULD BEAM EACH
20600	GROUP OF 3 16THS.
20700	
20800	IF IRREGULAR BEAMS ARE NEEDED, GIVE THE NOTE NUMBERS  FOR  THE  FIRST
20900	AND LAST NOTES UNDER THE BEAMS.  IF THE SECOND NUMBER IS NEGATIVE THE
21000	STEMS FOR THE GROUP WILL GO DOWNWARD.
21100	WHEN COUNTING NOTES, IGNORE RESTS, CLEFS ETC.  CHORDS COUNT AS 
21200	ONE NOTE.
21300	
21400		IF YOU HAVE 4 16TH NOTES (STEMS UP) FOLLOWED BY 2 QUARTERS
21500	 AND  3 8THS (STEMS DOWN) TYPE:
21600	
21700		1,4 / 7  -9 ;
21800	
21900	  SOME PARTIAL BEAMS MAY HAVE TO BE ADDED INDIVIDUALLY AS YET.
22000	
22100	      ****** AUTOMATIC BEAMS ****** IN MOST SIMPLE SITUATIONS ALL THE
22200	      BEAMS MAY BE PLACED AUTOMATICALLY BY SIMPLY TYPING "2B;". (OR
22300	      "3B;")   2B; WILL CAUSE ALL LOGICAL BEAM CONNECTIONS TO BE MADE
22400	      IN TERMS OF DUPLE RHYTHM.  USE 3B; FOR TRIPLE RHYTHMS SUCH AS
22500	      3/8, 6/8, 9/8, ETC.  THE BASIC UNIT FOR 2B; IS THE QUARTER NOTE
22600	      AND THE BASIC UNIT FOR 3B; IS THE DOTTED QUARTER.
22700	
22800	
22900	    LASTLY YOU WILL BE ASKED 'ADD SLURS?'  
23000	    TYPE 'Y' OR 'N'. TO THIS.
23100	
23200	IF SLURS ARE ADDED, THE ORDER NUMBERS OF THE NOTES AT  THE  BEGINNING
23300	AND END OF THE SLUR MUST BE GIVEN.  NORMALLY  THE  DIRECTION  OF  THE
23310	'DIP'  OF  THE  SLUR  WILL BE DETERMINED BY THE STEM DIRECTION OF THE
23320	FIRST NOTE INVOLVED.  IF THE LAST NOTE UNDER A SLUR HAS THE  OPPOSITE
23330	STEM  DIRECTION  THEN  THE  VERTICAL POSITION OF THE RIGHT END OF THE
23340	SLUR WILL BE JUST BEYOND THE  END  OF  THE  STEM.   (WHEN  BEAMS  ARE
23350	INVOLVED  THE SLUR MAY POSSIBLY BUMP INTO THE BEAM.  THESE SITUATIONS
23360	MUST BE EDITED AFTER THE INPUT IS ENDED.) 
23365		SLURS  MAY  BE MADE TO GO COUNTER TO THE NORMAL BY ADDING 100
23375	TO THE 2ND NOTE NUMBER TO INSURE THAT  THE  'DIP'  BE  UPWARD  OR  BY
23385	ADDING  200  (OR A - SIGN) TO THE 2ND NUMBER TO INSURE THAT THE 'DIP'
23395	BE DOWNWARD.
23400	
23900		THE AMOUNT OF CURVE WILL DEPEND ON THE CONFIGURATION  OF  THE
24000	NOTES  BETWEEN  THE END POINTS.  IN EXTREME SITUATIONS IT IS PROBABLE
24100	THAT THE RESULT OF THIS AUTOMATIC PROCEDURE WILL HAVE TO BE EDITED.
24200	
24300		A TYPICAL EXAMPLE OF INPUT:   2,-3/ 2,-7/ 8,11;
24310					OR: 2 203/ 2 207/ 8 11;
24400	
24500			THIS WILL PUT SLURS FROM 2ND TO 3RD NOTE, 2ND TO 7TH
24600			AND 8TH TO 11TH.
24700	
24800	TO  SLUR  INTO THE 1ST NOTE, TYPE -1,1/ OR -1, -1/.  TO SLUR OUT FROM
24900	THE LAST  NOTE,  TYPE  'N,99;',  'N,199',  'N,299'  OR  N,-99;  WHERE
24910	N=NUMBER OF LAST NOTE.
24920	
25100	  ***** NOTE THAT TIES BETWEEN THE INNER NOTES OF TWO CHORDS CANNOT
25200		BE DONE AUTOMATICALLY AS YET.
25300	
25400	TO MAKE NUMBERED BRACKETS (FOR TRIPLETS, ETC.) INSTEAD OF SLURS, TYPE
25500	THE  NUMBER  (ONE  DIGIT ONLY) DESIRED TO THE RIGHT OF THE DECIMAL OF
25600	THE FIRST OF A PAIR.  THUS TO PUT A BRACKETED 3 OVER NOTES  7  TO  9,
25700	TYPE  7.3  9/ .   AS WITH SLURS, THE SECOND NUMBER MAY BE NEGATIVE TO
25800	GET A DOWNWARD BRACKET.
25900	
26000	
26100	∞∞∞∞∞ FOR 'BEAMS', 'MARKS' AND 'SLURS' A 2ND LINE OF INPUT MAY BE
26200		GIVEN IF THE 1ST LINE ENDS WITH '/' INSTEAD OF ';'.
26300	
26400		ALL ITEMS ENTERED UNDER 'IN' OR 'READ' MAY BE EDITED LATER AS
26410	IF THEY WERE ENTERED INDIVIDUALLY.
26600	
26700	FOR 'READ':      FOLLOWING IS THE FILE FORMAT FOR "SCORE" INPUT FROM
26800	   AN EXTERNALLY EDITED FILE.  THE NAME OF THE FILE CAN HAVE NO MORE
26900	   THAN FIVE LETTERS.
27000	
27100		00100   (NOTES) . . . ;
27200		00200   (RHYTHM) . . . ;
27300		00300   (ACCENTS) . . ;  BLANK LINE = NO MARKS
27400		00400   (BEAMS) . . ; A BLANK LINE = NO BEAMS
27500		00500   (SLURS) . . ;  BLANK LINE = NO SLURS
27600	
27700		(2ND LINES MAY BE ADDED WITH ALL ITEMS.)
27800	
27900	    THIS SEQUENCE MAY BE REPEATED SEVERAL TIMES.  THE PROGRAM WILL
28000	    ASK FOR EACH OF THE STAFF NUMBERS.
28100	
28200	
28300	****  SUMMARY OF SCORE CODES ****
28400	
28500	NOTES 		A-G
28600	ACCIDENTALS	F-S-N
28700	REST		R, RI FOR INVISIBLE REST, RW FOR WHOLE REST ALWAYS.
28800	CLEFS		TR-BA-AL-TE    -TR, -BA, ETC. =INVISIBLE CLEF
28900	BAR, MEASURE	M
29000	KEY SIG.	KnS OR KnF
29100	METER,TIME SIG.	Tn,m
29200	STEM DIRECTION	SU-SD
29300	iXn		REPEAT ITEM i A TOTAL OF n TIMES.
29400	REP n,m		REPEAT LAST n ITEMS A TOTAL OF m TIMES.
29500	Xn m		SAME AS REP.
29600	ACCENT		A
29700	WEDGE		W
29710	HEAVY WEDGE	HW
29800	TENUTO		T
29900	STACCATO	S
30000	HARMONIC	H
30100	FERMATA		FE
30200	DOWN BOW	D
30300	UP BOW		U
30400	+(PLUS)		PL
30500	THESIS		TH		
30600	ARSIS		AR
30700	MORDANT		MO
30800	INV. MORD.	I
30900	TRILL		TR
31000	PPP, PP, P, MP, MF, F, FF, FFF
31100	CRESC.		C
31200	ACCEL.		AC
31300	DIM.		DI
31400	RIT.		R
31500	< (CRESC.)	n1 C+ n2
31600	> (DECRESC.)	n1 C- n2
     

00100	---------  SECTION VI  -----------
00200	
00300	********* TO SET UP AUTOMATIC IRREGULAR RHYTHMIC SPACING *******
00400	---- TYPE 'SP' n  to setup STAFF n as basis for automatic spacing. ---
00500	
00600		ANY  NOTES WHICH APPEAR ON STAFF n WILL CAUSE ALL ITEMS LATER
00700	ENTERED WITH 'IN' OR 'READ' TO BE  SPACED  ACCORDING  TO THE  SPACING
00800	GIVEN  ON  STAFF n. 
00900	
01000		 ALL FURTHER LINES ENTERED WILL CONFORM TO THE SPACING ON
01100		 STAFF n UNLESS THE STAFF IS DELETED OR 'SP' IS AGAIN TYPED,
01200		 FOLLOWED BY SOME NEW NUMBER.
01300	
01400	    ------N.B. IF ANY EDITING OF STAFF n IS DONE BE SURE THAT THE 
01500		SPACE VALUES IN P9 OF NOTES OR P7 OF RESTS IS CORRECT.  THE
01600		AUTOMATIC SPACING IS BASED ON THESE VALUES.  THE VALUES ARE
01700		SET WHEN 'IN' OR 'READ' IS USED.  THE BASIC VALUE IS ONE
01800		QUARTER=1.  HALF=2, WHOLE=4, EIGHTH=.5, SIXTEENTH=.25, ETC.
01900	
02000		NOTE THAT 'SP' MUST BE RESET AFTER ANY RESTART OR WHEN
02100		RE-RUNNING THE PROGRAM.
02200	
02300	  IT IS BEST TO ACCOUNT FOR ALL BAR LINES, CLEFS, METERS, ETC.
02400	
02500	
02600	IN GENERAL, IT IS PROBABLY BETTER TO USE MANY SMALL VALUES ON 
02700	STAFF n.  THIS WAY IT IS EASIER TO MAKE MANY DELICATE ADJUSTMENTS.
02800	
02900	*******   PARTS   ********
03000	
03100	
03200		WHEN  ASKED "TYPE TOP STAFF #", GIVE THE HIGHEST STAFF NUMBER
03300	YOU WANT USED FOR THIS SECTION OF THE PART INVOLVED.  IF YOU TYPE "2"
03400	THE LINES 2, 1, 0, ETC. WILL BE USED UNTIL BUFFER SPACE IS EXHAUSTED.
03500	
03600		THE NEXT PROMPT WILL BE 'TYPE INPUT NAME, (CONT.),  (NOBAR)'.
03700	TYPE  THE  NAME OF THE FIRST FILE OF THE FULL SCORE TO BE READ.  IF A
03800	NUMBER(>0) IS  TYPED  AFTER  THE  NAME  THE  READ-IN  PROCEDURE  WILL
03900	CONTINUE  ON  TO THE NEXT FILE NAME, ALPHABETICALLY, AND WHEN NO MORE
04000	ARE FOUND IT WILL EXIT.
04100	ORDINARILY THE BAR LINES OF THE FULL SCORE ARE  PICKED  UP  FOR  EACH
04200	INSTRUMENTAL  PART.  TO OMIT THESE BARLINES TYPE ANY NUMBER(>0) AFTER
04300	THE 'CONT.' NUMBER.
04400	
04500		THE  NEXT  PROMPT  WILL  BE,  'INST.  NAME?' THIS ASSUMES THE
04600	ORIGINAL SCORE HAS INSTRUMENT NAMES TYPED IN P9 FOR EACH  STAFF  (SEE
04700	CODE 2, PG.2). BE SURE YOUR INSTRUMENT NAMES DO NOT EXCEED 5 LETTERS.
04800	IF  NO  INST. NAMES WERE GIVEN BUT THE PART TO BE EXTRACTED IS ALWAYS
04900	ON THE SAME STAFF, THIS STAFF NUMBER MAY BE GIVEN AS THE INST. NAME.
05000	
05100		THE NEXT PROMPT WILL  BE  'TRANS. NUM--'.  ANSWER THIS BY  THE
05200	NUMBER OF NOTE STEPS (NOT 1/2 STEPS!) TO BE TRANSPOSED.
05300	
05400	THE  MESSAGE  "NO  ROOM  FOR THIS ONE" MEANS THE BUFFER DOES NOT HAVE
05500	ROOM LEFT  FOR  ANOTHER  COMPLETE  LINE.   THIS  LAST  LINE  WILL  BE
05600	COMPLETELY IGNORED.  THEN YOU MUST START ANOTHER FILE.
05700	
05800	TRANSPOSITIONS FOR "Bb" INSTRUMENTS  AND  FOR  "F"  INSTRUMENTS  WILL
05900	AUTOMATICALLY FIX MOST OF THE NEEDED CHANGES IN ACCIDENTALS.  HOWEVER
06000	THERE ARE MANY CASES WHERE WRONG RESULTS MIGHT OCCUR  (SUCH  AS  WITH
06100	NOTES  TIED  OVER  BAR  LINES,  ETC.)  SO  CAREFUL  PROOF  READING IS
06200	ESSENTIAL.
06300	
07000	THE SECOND PROMPT IS 'TYPE FILE NAME'.  IF NO NUMBER FOLLOWS THE NAME
07100	THE  PROGRAM  WILL  TRY  TO   CONTINUE   READING   FILE   NAMES,   UP
07200	ALPHABETICALLY  FROM THE GIVEN NAME.  WHEN NO MORE ARE TO BE FOUND IN
07300	THAT SEQUENCE, THE PROMPT WILL BE GIVEN AGAIN AND A NEW SET OF  FILES
07400	CAN  BE  ADDED.   THIS  WORKS ONLY FOR NAMES OF EXACTLY 5 CHARACTERS.
07500	SHORTER NAMES MUST BE READ IN ONE AT A TIME -- AND TO  DO  THIS,  THE
07600	NUMBER  1  MUST  COME  AT LEAST 5 SPACES AFTER THE START OF THE LINE!
07700	WHEN NO MORE NAMES ARE TO BE ADDED, HIT 'RETURN'.
07800	
07900	WHEN UNPACKING, THE PROMPT 'GET WHICH FILE?' WILL APPEAR.  IF YOU HIT
08000	'RETURN' ALL NAMES IN THE FILE WILL BE UNPACKED.  IF A NAME IS GIVEN,
08100	ONLY THAT ONE WILL BE UNPACKED.  IF A NUMBER  FOLLOWS  THE  NAME  (AT
08200	LEAST  5  SPACES IN) A TOTAL OF THAT NUMBER OF FILES WILL BE UNPACKED
08300	BEGINNING WITH THE GIVEN NAME.
08400	
08500	WHEN FILES ARE ADDED TO A PACKED FILE THEY ARE SIMPLY  ADDED  ON  THE
08600	END.   IF  THE NAME GIVEN IS ALREADY THERE, THE EARLIER NAME WILL NOT
08700	BE DELETED.  THUS WHEN THEY ARE UNPACKED THE EARLY  VERSION  OF  THAT
08800	NAME MUST BE IGNORED.
     

00100	INDEX TO SUBROUTINES:
00200	
00300	    FILE NAME:
00400	
00500		FORTRAN PROGRAMS:
00600	
00700		MSS
00800		NOTWRT	NOTWRT
00900	
01000		ITMSUB	ITMSUB
01010	
01100		BMSTF	BMS
01200			METER
01300			RNOTE
01400			MAKNUM
01500	
01600		PLTSRT	SLUR
01700			PLTSRT
01800			BOX
01900			HOMER
02000			SCL
02100			FORMAT
02200	
02300		MOVER
02400	
02500		CLEFS
02600	
02700		GRED	VLINE
02800			ASKIT
02900			GRED
03000			LPEN
03100			DELETE
03200			PLTCMD
03300			SAVIT
03400			LISTP
03500			FIXUP
03600	
03800		XREST	TAIL
03900			REST
04000			BREP
04100			FERMTA
04110	
04120		ALPHA	ALPHA
04200			PNUM
04300			SPACER
04400			KSIG
04500	
04600		WORDS 	WORDS
04700			TYPE
04800			SETLET
04810			LNEND
04900	
05000		SCANR	SCANR
05100			NALF
05200			EDIT
05300			PRESCN
05400	
05500		SCMSS	
05600	
05700		RHYTH	RHYTH
05800			SETUP
05900			MARKS
06000			DOTS
06100	
06200		NOTBMS	NOTES
06300	
06400		BEAMS	BEAMS
06500			SLEND
06600			POSIT
06700	
06800		PREFIL	FILLMS
06900			ROTATE
07000	
07100		COPYIT	COPYIT
07200			STFCH
07300			UPDN
07400	
07500		FAIL PROGRAMS:
07600	
07700		LOOP	LOOP
07800			FINDIT
07900			PLACE
08000			DPYNEW
08100			MVBEAM
08200			MVBX
08300			JUGGLE
08400			XNOTE
08500			BAUTO
08600			SORT2
08700			UPDATE
08800			NEWR
08900	
09000		SLOOP	RNOTE
09100			DRWNT
09200			RDRAW
09300			SLOOP
09400			CIRCLE
09500			PSRT
09600			RUNTHR
09700	
09800		FILL	FILLER
09900			LINES
10000	
10100		SMALL	RJBX
10200			CENTX
10300			EXTEN
10400			JDRAW
10500			CENTER
10600			LINX
10700			UNPACK
10800			ROFF
10900			NOIR
11000			NOZERO
11100			EXCH
11200			BMS
11300			IABS
11400			ABS
11500			RHORZ
11600			RTLINE
11700			FLOAT
11800			IFIX
11900	
12000		MOVE	MOVIT
12100			GETPTS
12200			OUTLIM
12300	
12400		MSSIO	GETFI2
12500			FASTI2
12600			LOOK
12700			LOOKD
12800			LOOKF
12900			(PAC)
13000			(UNPAC)
13100	
13200	FILES FOR PLOTTER AND XGP OUTPUT.
13300	
13400		MPRNT
13500		PPSRT	SLUR
13600			PLTSRT
13700			CLEFS
13800	
13900		PLTIT	PLTCMD
14000			FILLMS
14100			ROTATE
14200	
14300		SMALLX	RJBX
14400			CENTX
14500			EXTEN
14600			JDRAW
14700			CENTER
14800			LINX
14900			UNPACK
15000			ROFF
15100			NOIR
15200			NOZERO
15300			EXCH
15400			BMS
15500			IABS
15600			ABS
15700			RHORZ
15800			RTLINE
15900			FLOAT
16000			IFIX
16100	
16200		FILLX	FILLER
16300			LINES
16400			PLOT
16500			(PLOTS)
     

00100	***** PRNTX.DO ******   (PREPARES FILE FOR 'PLOTIT.F4')
00200	LOA MP←/DUMP %DMPRNT,SLOOP,SMALLX,NOTWRT,ITMSUB,XREST,
00300	PPSRT,FILLX,PLTIT,MSSIO↔
00400	
00500	
00600	***** PRNTC.DO ******   (GOES DIRECTLY TO CALCOMP)
00700	LOA MC←/DUMP MPRNT,NOTWRT,ITMSUB,FILLER,MSFAIL,PPSRT,TREST,PLTC↔
00800	
00900	XXXXXX DOMS.DO XXXXXX(TO GET NECESSARY BASIC DATA READ IN BEFORE DUMP.)
01000	LOA MM←/DUMP @DDTMSS[1,LCS]↔AL Y↔S↔G↔INIT↔βAL↔SA MM↔
01100	
01200	
01300	********  ZZ.DO  ******
01400	LOA @ZZ↔βSA MM↔
01500	
01600	********* RR.CMD  ********
01700	MSS,LOOP,SMALL,MOVER,GRED,NOTWRT,ITMSUB,WORDS,SLOOP
01800	,XREST,SCMSS,SCANR,MSSIO,PLTSRT,COPYIT,CLEFS,MOVE
01900	,NOTBMS,BEAMS,RHYTH,FILL,PREFIL[MSS,LCS],CURSOR.REL[MSS,LCS]
01905	
01910	
01920	***** MSX.CMD[XX,LCS]  12/75 *****
01930	
02000	MSX,LOOP,SMALL,MOVER,GREDX,NOTWRT,ITMSUB,WORDS,SLOOP
02010	,XREST,SCMSS,SCANR,MSSIO,PLTSRT,COPYIT,CLEFS,MOVE
02020	,NOTBMS,BEAMS,RHYTH,FILL,PREFIL,CURSOR.REL[MSS,LCS]
02030	
02100	
02110	***** MP.CMD[XX,LCS]  12/75 *****
02120	
02200	MPRNT,SLOOP,SMALLX,NOTWRT,ITMSUB,XREST,PPSRT,CLEFS,FILLX,PLTIT,MSSIO